*&---------------------------------------------------------------------*
*& Report  ZDEMO_OO_ALV_ALL
*&
*&---------------------------------------------------------------------*

REPORT  ZDEMO_OO_ALV_ALL.
DATA : O_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       O_GRID1      TYPE REF TO CL_GUI_ALV_GRID,
       O_CONTAINER2 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       O_GRID2      TYPE REF TO CL_GUI_ALV_GRID,
       IT_EKKO      TYPE TABLE OF EKKO,
       WA_EKKO      TYPE EKKO,
       IT_EKPO      TYPE TABLE OF EKPO.
*Define Event Handler Class
CLASS LCL_HANDLER DEFINITION.
  PUBLIC SECTION.
    METHODS : HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK
                     OF CL_GUI_ALV_GRID IMPORTING E_ROW,
              HANDLE_toolbar FOR EVENT TOOLBAR
                     OF CL_GUI_ALV_GRID IMPORTING E_OBJECT,
              HANDLE_USER_COMMAND FOR EVENT USER_COMMAND
                     OF CL_GUI_ALV_GRID IMPORTING E_UCOMM.
ENDCLASS.

*Implement Event Handler Class
CLASS LCL_HANDLER IMPLEMENTATION.

METHOD HANDLE_USER_COMMAND.
     SELECT * INTO TABLE IT_EKPO FROM EKPO FOR ALL ENTRIES IN IT_EKKO
                                    WHERE EBELN = IT_EKKO-EBELN.
     CALL SCREEN 9100.
ENDMETHOD.
METHOD HANDLE_TOOLBAR.
  DATA WA_BUTTON TYPE STB_BUTTON.
     WA_BUTTON-FUNCTION = 'DETAILED'.
     WA_BUTTON-TEXT = 'Detailed List'.
  APPEND WA_BUTTON TO E_OBJECT->MT_TOOLBAR.
ENDMETHOD.


  METHOD HANDLE_DOUBLE_CLICK.


    READ TABLE IT_EKKO INTO WA_EKKO INDEX E_ROW-INDEX.
    SELECT * INTO TABLE it_ekpo FROM EKPO WHERE EBELN = WA_EKKO-EBELN.

    CALL SCREEN 9100.

  ENDMETHOD.

ENDCLASS.


START-OF-SELECTION.
    CALL SCREEN 9000.


*&---------------------------------------------------------------------*
*&      Module  DISPLAY_ALV_9000  OUTPUT
*&---------------------------------------------------------------------*
module DISPLAY_ALV_9000 output.


*Create Container1 Obj
CREATE OBJECT o_container1
  EXPORTING
*    parent                      =
    container_name              = 'C1'
*    style                       =
*    lifetime                    = lifetime_default
*    repid                       =
*    dynnr                       =
*    no_autodef_progid_dynnr     =
*  EXCEPTIONS
*    cntl_error                  = 1
*    cntl_system_error           = 2
*    create_error                = 3
*    lifetime_error              = 4
*    lifetime_dynpro_dynpro_link = 5
*    others                      = 6
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


*Create Grid Obj
CREATE OBJECT o_grid1
  EXPORTING
*    i_shellstyle      = 0
*    i_lifetime        =
    i_parent          = o_container1
*    i_appl_events     = space
*    i_parentdbg       =
*    i_applogparent    =
*    i_graphicsparent  =
*    i_name            =
*    i_fcat_complete   = space
*  EXCEPTIONS
*    error_cntl_create = 1
*    error_cntl_init   = 2
*    error_cntl_link   = 3
*    error_dp_create   = 4
*    others            = 5
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*Register the Event Handler Methods
DATA O_HANDLER TYPE REF TO LCL_HANDLER.
CREATE OBJECT O_HANDLER.
SET HANDLER : O_HANDLER->HANDLE_DOUBLE_CLICK      FOR O_GRID1,
              O_HANDLER->HANDLE_TOOLBAR           FOR O_GRID1,
              O_HANDLER->HANDLE_USER_COMMAND      FOR O_GRID1.




CALL METHOD o_grid1->set_table_for_first_display
  EXPORTING
*    i_buffer_active               =
*    i_bypassing_buffer            =
*    i_consistency_check           =
    i_structure_name              = 'EKKO'
*    is_variant                    =
*    i_save                        =
*    i_default                     = 'X'
*    is_layout                     =
*    is_print                      =
*    it_special_groups             =
*    it_toolbar_excluding          =
*    it_hyperlink                  =
*    it_alv_graphics               =
*    it_except_qinfo               =
*    ir_salv_adapter               =
  CHANGING
    it_outtab                     = IT_EKKO
*    it_fieldcatalog               =
*    it_sort                       =
*    it_filter                     =
*  EXCEPTIONS
*    invalid_parameter_combination = 1
*    program_error                 = 2
*    too_many_lines                = 3
*    others                        = 4
        .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.




endmodule." DISPLAY_ALV_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  GET_DATA_9000  OUTPUT
*&---------------------------------------------------------------------*
module GET_DATA_9000 output.
SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS.
endmodule.                 " GET_DATA_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
module STATUS_9000 output.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
module USER_COMMAND_9000 input.
  CASE SY-UCOMM.
     WHEN 'BACK'.
         LEAVE TO SCREEN 0.
  ENDCASE.
endmodule.                 " USER_COMMAND_9000  INPUT

*&---------------------------------------------------------------------*
*&      Module  STATUS_9100  OUTPUT
*&---------------------------------------------------------------------*
module STATUS_9100 output.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_9100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  DISPLAY_DETAILED_9100  OUTPUT
*&---------------------------------------------------------------------*
module DISPLAY_DETAILED_9100 output.

IF o_container2 IS INITIAL.
*Create Container2 Obj
CREATE OBJECT o_container2
  EXPORTING
*    parent                      =
    container_name              = 'C2'
*    style                       =
*    lifetime                    = lifetime_default
*    repid                       =
*    dynnr                       =
*    no_autodef_progid_dynnr     =
*  EXCEPTIONS
*    cntl_error                  = 1
*    cntl_system_error           = 2
*    create_error                = 3
*    lifetime_error              = 4
*    lifetime_dynpro_dynpro_link = 5
*    others                      = 6
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


*Create Grid Obj
CREATE OBJECT o_grid2
  EXPORTING
*    i_shellstyle      = 0
*    i_lifetime        =
    i_parent          = o_container2
*    i_appl_events     = space
*    i_parentdbg       =
*    i_applogparent    =
*    i_graphicsparent  =
*    i_name            =
*    i_fcat_complete   = space
*  EXCEPTIONS
*    error_cntl_create = 1
*    error_cntl_init   = 2
*    error_cntl_link   = 3
*    error_dp_create   = 4
*    others            = 5
    .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.


CALL METHOD o_grid2->set_table_for_first_display
  EXPORTING
*    i_buffer_active               =
*    i_bypassing_buffer            =
*    i_consistency_check           =
    i_structure_name              = 'EKPO'
*    is_variant                    =
*    i_save                        =
*    i_default                     = 'X'
*    is_layout                     =
*    is_print                      =
*    it_special_groups             =
*    it_toolbar_excluding          =
*    it_hyperlink                  =
*    it_alv_graphics               =
*    it_except_qinfo               =
*    ir_salv_adapter               =
  CHANGING
    it_outtab                     = IT_EKPO
*    it_fieldcatalog               =
*    it_sort                       =
*    it_filter                     =
*  EXCEPTIONS
*    invalid_parameter_combination = 1
*    program_error                 = 2
*    too_many_lines                = 3
*    others                        = 4
        .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endmodule.                 " DISPLAY_DETAILED_9100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9100  INPUT
*&---------------------------------------------------------------------*
module USER_COMMAND_9100 input.
CASE SY-UCOMM.
  WHEN 'BACK'.
    LEAVE TO SCREEN 0.
ENDCASE.

endmodule.                 " USER_COMMAND_9100  INPUT